(list
  (cons 'model
     (make-instance 'ModelSwarm #:leftXLim 1
                                #:rightXLim 20
                                #:upYLim 30
                                #:downYLim 50 )))
